home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / chinese / cedit24 / cview.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-17  |  9.9 KB  |  318 lines
  1. /* cview -- Yijun Ding, 04-16-1992, GNU copyright notice applied
  2. The output is through a file pointer. The advantage of this is to
  3. allow print to CON=screen, PRN=printer or filename=file.  fprintf()
  4. does not print 0x1a correctly on many printers.
  5.  
  6. Compile with TC:
  7. tcc -DHP -egb2hp cview
  8. tcc -DEPSON -egb2epson cview
  9. tcc -DTEXT -egb2text cview
  10. */
  11.  
  12. /* must define one of the following */
  13. /*#define HP        /* LaserJet iiip */
  14. /*#define EPSON     /* Epson LQ850 */
  15. /*#define TEXT        /* screen */
  16.  
  17. #define BOX 178 /* printable */
  18. /*#define BOX '#'    /* portable, it can be modified to run on unix */
  19.  
  20. #include <stdio.h>
  21. #define  syserr(str) {perror(str);exit(0);}
  22. #include <string.h>
  23.  
  24. char *fname = "CCLIB.16";
  25. FILE *fi, *fo, *ff;    /* input, output, font */
  26. int  col, row;
  27.  
  28. /* when increase maxcol, beware of buffer size limit */
  29. #ifdef HP
  30. int  maxcol=80;
  31. int  maxrow=36;
  32. char buffer[16][150];        /* 8 inches */
  33. char *oname = "PRN";
  34. char *initial_string="\033*t100R\033*r0A";    /* different density? */
  35. #define end_string "\033*rB\033E"
  36. #endif
  37.  
  38. #ifdef EPSON
  39. int  maxcol=640;
  40. int  maxrow=26;
  41. char buffer[2][1000];
  42. char *oname = "PRN";
  43. #define initial_string "\033\x33\x18\r"
  44. #define end_string "\f"
  45. #endif
  46.  
  47. #ifdef TEXT
  48. int  maxcol=70;
  49. int  maxrow=9999;
  50. char buffer[16][81];    /* screenful */
  51. char *oname = "CON";
  52. #define initial_string "\r\n"
  53. #define end_string "\r\n"
  54. #endif
  55.  
  56. char efont[1024]={    /* English 8x8 fonts */
  57.   0,  0,  0,  0,  0,  0,  0,  0,126,129,165,129,189,153,129,126,
  58. 126,255,219,255,195,231,255,126,108,254,254,254,124, 56, 16,  0,
  59.  16, 56,124,254,124, 56, 16,  0, 56,124, 56,254,254,124, 56,124,
  60.  16, 16, 56,124,254,124, 56,124,  0,  0, 24, 60, 60, 24,  0,  0,
  61. 255,255,231,195,195,231,255,255,  0, 60,102, 66, 66,102, 60,  0,
  62. 255,195,153,189,189,153,195,255, 15,  7, 15,125,204,204,204,120,
  63.  60,102,102,102, 60, 24,126, 24, 63, 51, 63, 48, 48,112,240,224,
  64. 127, 99,127, 99, 99,103,230,192,153, 90, 60,231,231, 60, 90,153,
  65. 128,224,248,254,248,224,128,  0,  2, 14, 62,254, 62, 14,  2,  0,
  66.  24, 60,126, 24, 24,126, 60, 24,102,102,102,102,102,  0,102,  0,
  67. 127,219,219,123, 27, 27, 27,  0, 62, 99, 56,108,108, 56,204,120,
  68.   0,  0,  0,  0,126,126,126,  0, 24, 60,126, 24,126, 60, 24,255,
  69.  24, 60,126, 24, 24, 24, 24,  0, 24, 24, 24, 24,126, 60, 24,  0,
  70.   0, 24, 12,254, 12, 24,  0,  0,  0, 48, 96,254, 96, 48,  0,  0,
  71.   0,  0,192,192,192,254,  0,  0,  0, 36,102,255,102, 36,  0,  0,
  72.   0, 24, 60,126,255,255,  0,  0,  0,255,255,126, 60, 24,  0,  0,
  73.   0,  0,  0,  0,  0,  0,  0,  0, 48,120,120, 48, 48,  0, 48,  0,
  74. 108,108,108,  0,  0,  0,  0,  0,108,108,254,108,254,108,108,  0,
  75.  48,124,192,120, 12,248, 48,  0,  0,198,204, 24, 48,102,198,  0,
  76.  56,108, 56,118,220,204,118,  0, 96, 96,192,  0,  0,  0,  0,  0,
  77.  24, 48, 96, 96, 96, 48, 24,  0, 96, 48, 24, 24, 24, 48, 96,  0,
  78.   0,102, 60,255, 60,102,  0,  0,  0, 48, 48,252, 48, 48,  0,  0,
  79.   0,  0,  0,  0,  0, 48, 48, 96,  0,  0,  0,252,  0,  0,  0,  0,
  80.   0,  0,  0,  0,  0, 48, 48,  0,  6, 12, 24, 48, 96,192,128,  0,
  81. 124,198,206,222,246,230,124,  0, 48,112, 48, 48, 48, 48,252,  0,
  82. 120,204, 12, 56, 96,204,252,  0,120,204, 12, 56, 12,204,120,  0,
  83.  28, 60,108,204,254, 12, 30,  0,252,192,248, 12, 12,204,120,  0,
  84.  56, 96,192,248,204,204,120,  0,252,204, 12, 24, 48, 48, 48,  0,
  85. 120,204,204,120,204,204,120,  0,120,204,204,124, 12, 24,112,  0,
  86.   0, 48, 48,  0,  0, 48, 48,  0,  0, 48, 48,  0,  0, 48, 48, 96,
  87.  24, 48, 96,192, 96, 48, 24,  0,  0,  0,252,  0,  0,252,  0,  0,
  88.  96, 48, 24, 12, 24, 48, 96,  0,120,204, 12, 24, 48,  0, 48,  0,
  89. 124,198,222,222,222,192,120,  0, 48,120,204,204,252,204,204,  0,
  90. 252,102,102,124,102,102,252,  0, 60,102,192,192,192,102, 60,  0,
  91. 248,108,102,102,102,108,248,  0,254, 98,104,120,104, 98,254,  0,
  92. 254, 98,104,120,104, 96,240,  0, 60,102,192,192,206,102, 62,  0,
  93. 204,204,204,252,204,204,204,  0,120, 48, 48, 48, 48, 48,120,  0,
  94.  30, 12, 12, 12,204,204,120,  0,230,102,108,120,108,102,230,  0,
  95. 240, 96, 96, 96, 98,102,254,  0,198,238,254,254,214,198,198,  0,
  96. 198,230,246,222,206,198,198,  0, 56,108,198,198,198,108, 56,  0,
  97. 252,102,102,124, 96, 96,240,  0,120,204,204,204,220,120, 28,  0,
  98. 252,102,102,124,108,102,230,  0,120,204,224,112, 28,204,120,  0,
  99. 252,180, 48, 48, 48, 48,120,  0,204,204,204,204,204,204,252,  0,
  100. 204,204,204,204,204,120, 48,  0,198,198,198,214,254,238,198,  0,
  101. 198,198,108, 56, 56,108,198,  0,204,204,204,120, 48, 48,120,  0,
  102. 254,198,140, 24, 50,102,254,  0,120, 96, 96, 96, 96, 96,120,  0,
  103. 192, 96, 48, 24, 12,  6,  2,  0,120, 24, 24, 24, 24, 24,120,  0,
  104.  16, 56,108,198,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,255,
  105.  48, 48, 24,  0,  0,  0,  0,  0,  0,  0,120, 12,124,204,118,  0,
  106. 224, 96, 96,124,102,102,220,  0,  0,  0,120,204,192,204,120,  0,
  107.  28, 12, 12,124,204,204,118,  0,  0,  0,120,204,252,192,120,  0,
  108.  56,108, 96,240, 96, 96,240,  0,  0,  0,118,204,204,124, 12,248,
  109. 224, 96,108,118,102,102,230,  0, 48,  0,112, 48, 48, 48,120,  0,
  110.  12,  0, 12, 12, 12,204,204,120,224, 96,102,108,120,108,230,  0,
  111. 112, 48, 48, 48, 48, 48,120,  0,  0,  0,204,254,254,214,198,  0,
  112.   0,  0,248,204,204,204,204,  0,  0,  0,120,204,204,204,120,  0,
  113.   0,  0,220,102,102,124, 96,240,  0,  0,118,204,204,124, 12, 30,
  114.   0,  0,220,118,102, 96,240,  0,  0,  0,124,192,120, 12,248,  0,
  115.  16, 48,124, 48, 48, 52, 24,  0,  0,  0,204,204,204,204,118,  0,
  116.   0,  0,204,204,204,120, 48,  0,  0,  0,198,214,254,254,108,  0,
  117.   0,  0,198,108, 56,108,198,  0,  0,  0,204,204,204,124, 12,248,
  118.   0,  0,252,152, 48,100,252,  0, 28, 48, 48,224, 48, 48, 28,  0,
  119.  24, 24, 24,  0, 24, 24, 24,  0,224, 48, 48, 28, 48, 48,224,  0,
  120. 118,220,  0,  0,  0,  0,  0,  0,  0, 16, 56,108,198,198,254,  0};
  121.  
  122. void buffer_out()
  123. {
  124.   int  i, j;
  125.  
  126.   if(++row >= maxrow) {
  127.     fputc('\f', fo);
  128.     row = 1;
  129.   }
  130. #ifdef HP
  131.   for(i=0; i<8; i++)
  132.     fprintf(fo, "\033*b0W");
  133.   for(i=0; i<16; i++) {
  134.     fprintf(fo, "\033*b%dW", col+6);
  135.     /* can't print 00011010 = 0x1a */
  136.     for(j=0; j<6; j++) fputc(0, fo);
  137.     for(j=0; j<col; j++) if(buffer[i][j] == 26) buffer[i][j]++;
  138.     fwrite(buffer[i], 1, col, fo);
  139.   }
  140. #endif
  141. #ifdef EPSON
  142.   fputc('\n', fo);
  143.   for(i=0; i<2; i++) {
  144.     fprintf(fo, "    \033L%c%c", col%256,col/256);    /* indent 7 */
  145.     for(j=0; j<col; j++) if(buffer[i][j] == 26) buffer[i][j]++;
  146.     fwrite(buffer[i], 1, col, fo);
  147.     fprintf(fo, "\r\n");
  148.   }
  149. #endif
  150. #ifdef TEXT
  151.   fputc('\n', fo);
  152.   for(i=0; i<16; i++) {     /* tackle line wrap by omit the first! */
  153.     for(j=1; j<col; j++) fputc(buffer[i][j], fo);
  154.     fprintf(fo, "\r\n");
  155.   }
  156. #endif
  157.   col = 0;
  158. }
  159.  
  160. void fill_english(int k)
  161. {
  162.   int  i, j;
  163.   char ch;
  164.  
  165.   k *= 8;
  166. #ifdef HP
  167.   for(i=0; i<8; i++)
  168.     buffer[i][col] = 0;
  169.   for(; i<16; i++)
  170.     buffer[i][col] = efont[k++];
  171.   col++;
  172. #endif
  173. #ifdef EPSON
  174.   for(i=0; i<8; i++) {
  175.     buffer[0][col+i] = 0;
  176.     ch = efont[k++];
  177.     for(j=0; j<8; j++) {
  178.       buffer[1][col+j] <<= 1;
  179.       if(ch < 0) buffer[1][col+j]++;
  180.       ch <<= 1;
  181.     }
  182.   }
  183.   col += 8;
  184. #endif
  185. #ifdef TEXT
  186.   for(i=0; i<8; i++) for(j=0; j<8; j++)
  187.     buffer[i][col+j] = ' ';
  188.   for(; i<16; i++) {
  189.     ch = efont[k++];
  190.     for(j=0; j<8; j++) {
  191.       buffer[i][col+j] = ch<0? BOX: ' ';
  192.       ch <<= 1;
  193.     }
  194.   }
  195.   col += 8;
  196. #endif
  197. }
  198.  
  199. void fill_chinese(int k)
  200. {
  201.   int  i, j, ch;
  202.   int  cc[16];      /* should not use int. If modified, the TEXT
  203.   version can run on mainframe. I did it for unix. Not very useful */
  204.  
  205.   if(k < 0) k+= 8*94;        /* stupid, for puctuations */
  206.   fseek(ff, (long)k<<5, 0);
  207.   fread(cc, 2, 16, ff);
  208.  
  209. #ifdef HP
  210.   for(i=0; i<16; i++) {
  211.     *(int *)(&buffer[i][col]) = cc[i];
  212.   }
  213.   col += 2;
  214. #endif
  215. #ifdef EPSON
  216.   for(i=0; i<8; i++) {
  217.     ch = cc[i];
  218.     for(j=8; j<16; j++) {
  219.       buffer[0][col+j] <<= 1;
  220.       if(ch < 0) buffer[0][col+j]++;
  221.       ch <<= 1;
  222.     }
  223.     for(j=0; j<8; j++) {
  224.       buffer[0][col+j] <<= 1;
  225.       if(ch < 0) buffer[0][col+j]++;
  226.       ch <<= 1;
  227.     }
  228.   }
  229.   for(i=8; i<16; i++) {
  230.     ch = cc[i];
  231.     for(j=8; j<16; j++) {
  232.       buffer[1][col+j] <<= 1;
  233.       if(ch < 0) buffer[1][col+j]++;
  234.       ch <<= 1;
  235.     }
  236.     for(j=0; j<8; j++) {
  237.       buffer[1][col+j] <<= 1;
  238.       if(ch < 0) buffer[1][col+j]++;
  239.       ch <<= 1;
  240.     }
  241.   }
  242.   col += 16;
  243. #endif
  244. #ifdef TEXT
  245.   for(i=0; i<16; i++) {
  246.     ch = cc[i];
  247.     for(j=8; j<16; j++) {
  248.       buffer[i][col+j] = ch<0? BOX: ' ';
  249.       ch <<= 1;
  250.     }
  251.     for(j=0; j<8; j++) {
  252.       buffer[i][col+j] = ch<0? BOX: ' ';
  253.       ch <<= 1;
  254.     }
  255.   }
  256.   col += 16;
  257. #endif
  258. }
  259.  
  260. void main(int argc, char **argv)
  261. {
  262.   char lo, hi;
  263.   int  index;
  264.  
  265. /*#include <dos.h>
  266.   struct REGPACK regs;
  267.   regs.r_ax = 0x1130;
  268.   regs.r_bx = 0x0300;
  269.   intr(0x10, ®s);
  270.   movedata(regs.r_es,regs.r_bp,FP_SEG(efont),FP_OFF(efont),1024);
  271.   for(index = 0; index<1024; index++) {
  272.     if(index % 16 == 0) printf("\n");
  273.     printf("%3u,",(unsigned char)efont[index]);
  274.   }
  275.   return;   /* generate the data in efont[] */
  276.  
  277.   if(argc == 1) {
  278.     printf("\nUsage: %s [-option] file\n\n", argv[0]);
  279.     printf("-oname\t: output file (default=%s)\n", oname);
  280.     printf("-fname\t: font file (%s)\n", fname);
  281.     printf("-c#\t: columns per line (%d)\n", maxcol);
  282.     printf("-l#\t: lines per page (%d)\n", maxrow);
  283.     return;
  284.   }
  285.   while(**++argv == '-') switch(*++*argv) {
  286.   case 'c': maxcol = atoi(++*argv); break;
  287.   case 'l': maxrow = atoi(++*argv); break;
  288.   case 'f': fname = ++*argv; break;
  289.   case 'o': oname = ++*argv; break;
  290.   }
  291.   if(maxcol == 0 || maxrow == 0) syserr("maxcol/maxrow");
  292.  
  293.   if((fi=fopen(argv[0],"r")) == 0) syserr(argv[0]);
  294.   if((ff=fopen(fname, "rb")) == 0) syserr(fname);
  295.   if((fo=fopen(oname, "wb")) == 0) syserr(oname);
  296.  
  297.   fprintf(fo,initial_string);
  298.   while((lo = fgetc(fi)) != EOF) {
  299.     if(lo == '\n') {
  300.       buffer_out();
  301.       continue;
  302.     }
  303.     if(lo >= 0) {
  304.       fill_english(lo);
  305.     }
  306.     else {
  307.       hi = fgetc(fi);
  308.       fill_chinese(lo*94 + hi + 8273);
  309.     }
  310.     if(col >= maxcol) {
  311.       buffer_out();
  312.     }
  313.   }
  314.   if(col ) buffer_out();
  315.   fprintf(fo,end_string);
  316.   fcloseall();
  317. }
  318.